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0S9 is the shape of things to cone! 

Are any of you thinking of purchasing a Compatible machine in the near future? If you do you nay be in for a 
big surprise) "Big Blue' has suddenly found that MESS-DOS is just that, and that the power of the now 
available processors has finally surpassed the operating system. Viola! Now to introduce OS/2. A new 
operating systen that allows - wait for it - Hulti Tasking (!!!) and guess what else - sharable devices and 
files, It seems that IBM have finally found that in order to fully utilise the power of the 80386 chip, they 
needed to develop their own version of UNIX. And now we're gonna tell 'ea that we've had all this for years! 

Seriously, though, The aessage is that we have here an operating system that is still as aodern as tomorrow, 
but is affordable, and runs on an affordable aachine. At least when we speak about the CoCo Version. I 
would be interested to have any feedback fora those of you who are using, or know of anyone else who is using 
other versions of 0S9 on aachines other than the CoCo. It would really help in the production of this 
Newsletter to know whether or not we have aiaed in the right direction as far as content is concerned. 

Why is OS? so good? Well let's examine why we are apparently so happy with the systen. 

0S9 certainly has potential, There is no doubt about that. OS? is fun to play with. In fact, to some of us 
that is the main attraction. It is a hackers delight. But I think that it goes deeper than that. The final 
value of the system will be judged upon the systems ability to provide an environment in which we can either 
do useful work, or provide a mechanist by which people can continue to learn about computing systeas. 

And OS? has the ability to do all of this. Me can play games, we can use it for business, we can use it for 
software development. Such a diversity of uses it what really aakes the system so valuable. 

This issue is the usual potpourri of goodies. He have included some comments and code from Bob Devries 
regarding the use of and some mistakes in the C windowing functions. Bob has really put some effort into 
this project of his, and he should be congratulated for his efforts, 

As promised in an earlier Newsletter, this issue we are including the BasicO? source code for a CoCo disk 
maintenance utility by Don Berrie called ZAP. As the source code is rather long, we will be only be able to 
publish it in two parts. The second, and final instalment will appear in next months newsletter. As you can 
see, we have formatted it into two columns to try to fit as much as we can onto the limited paper space that 
we have. The formatting is on a per page basis. That is, the right column on each page follows after the 
left column, and thence to the following page. 

We have also included a review of a commercial OS? game, which is sold by Tandy, This review has been 
written by Nickolas Marentes, the author of a number of commercial programmes. 

In the next issue, we plan to have some notes on the topic of coanunication, particularly in relation to the 
use of a terminal for the CoCo. The ability to use your MS-DOS machine as a terminal running under OS? on 
your CoCo will really use it auch aore effectively than it can be used running under its own operating 
system. 

By now it should be a familiar plea. However, we cannot go on indefinitely producing this newsletter by 
using the efforts of just a few people. This is a NEWSLETTER and that means that we need your input. 
Without it the amount and the quality of the sheet must decline. So come on, share that saall snippet. Send 
us that piece of code. Let's hear froa some non-CoCo users about their machines. 
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Hulti-Vue and the C Prograiting language. 

Boy, ain't we got -fun! Here I Mas, a raw beginner at the art of C prograiiing, and I thought I'd look 
at the whys and wherefores of using the C libraries that cane with the Hulti-Vue package. Hell, to start off 
Mith, I thought that by following the examples in the lanual, I couldn't go wrong. However, not only was I 
wrong, I was also led completely astray, Let oe give you some examples of how far wrong you can get. The 
first thing I thought I'd try was to use soie of the C5FX. LIB calls as documented in the manual. Did I come 
unstuck! The major reason for my sticky situation was that the manual mis-spelled several of the function 
names. For example, _ss.umbar is incorrect, it has more than 8 characters which is not allowed in our 
version of C. The correct spelling is .ss.ubar. When I found that the linker was spitting that one out as 
'unresolved external', I decided that I should do a dump of the new CGFX library, and see what exactly was in 
it. 

You use RDUh? for that, right? Wrong! It seems that the new library is set up differently so that the 
new linker RLINK can use then and the setup is different and RDUMP comes back with an error message to the 
effect that the file is not ROF. I ended up using a modified version of the programme 'LIB' from the user 
group library disks to read it. This gave me a file called 'modlist' which contained the names of all the 
cgfx functions, and their correct spellings of course. Please note that the C compiler is case sensitive. 

Well, after trying several of the simpler graphics functions, I thought I'd try something a little 
more pretentious, and try a framed window with pull-down menus a-la multi-vue. I read through the manual 
again, and started to write ny little programme. All I wanted at first was to create the framed window on an 
existing graphics screen, but when I tried to compile it, the C compiler told me of errors in the file 
'stdmenu.h'. After examining it and referring again to the C compiler manual, I found that the compiler does 
not allow macros to be longer than one line. The 'stdmenu.h' file is full of them! 

I decided to do my own thing inside my programme. Using the mouse drivers was also an experience in 
that while the information in the multi-vue manual is more or less correct, it leaves out some very important 
information and omits to mention one necessary function call to .ssjip without which the mouse won't work at 
all. So after fighting with it for a while I conferred with Don Berrie on how he did his mouse drivers in 
Basic09 and there I found the missing call. After that session I worked out how to get the QS9 kernel to 
steer the graphics cursor around the screen with minimum of programming overhead. Now without further ado, 
here's the listing of the programme I have at this stage. Of course it was just a try out programme, and 
does not do anything at all except tell you what you selected. 

iinclude (stdio.h) 
include (mouse. h> 
include (buffs. h) 
include (wind.h) 

idefine TRUE 1 

idefine FALSE 

idefine UPDATE 3 

idefine TIHOUT 10 

Idefine FOLLOW 1 

Idefine M0USSI5 10 

#define TNDY MN {T, 'a', 'n','d','y','\0'},MNJNDY, 10,9,1, 0,0, janitms 

Idefine FILE MN {'F',' i',T,' eys','\0'}, MN_FILE,10,7,1,0,0, Jilitms 

Idefine EDITJ1N {'E','dy i',' t',' \0'}, MN.EDIT,6,6,l,0,0,.edtitms 

Idefine HXHIN 40 

Idefine WYHIN 24 

Idefine RESERVED {'\0','\0','\0','\0','\0','\0','\0'} 

idefine RES5 {'\0y \0',' \0',' \0',' \0'} 
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sighandler(sig) 


\0'},1,RES5}, 


int sig; 


ky\Q'},l,RES5}, 


{ 




sigcode = sig; 


d'p'a'^r'/XOM, ljRESS), 


} 


r','o , ,'l , , , \0 , },l,RES5}, 




t'.'e' ,'r' -'NO'}, 1,RES5>, 


aainO 


\0'},i,RES5}, 


{ 


\0'},1,RES5}, 


char path = 1; 


iy\0'},l,RES5}, 


char ch; 


byoya', 


int itemo; 




int quit • FALSE 



HIDSCR .tanitnsC] = { 
{{'Cyayiyc', 

(ecyiyoyc', 

{{'CYayiyeYn', 
U'Cyoynyt', 
{{'P , , 7 r ? ,'i','n', 
{{'PS'a'j'r'j't', 
{{'Hyeyiyp', 

{{'syhyeyr, 

C , I , 1 , p , 
'rydy\0'},i,RES5} 



MIDSCR filitisEJ = { 

{{'NS'e'.'w'.'XO^.l.RESS}, 
{{*Q', 'p','e'-'n', '\0'>,1,RES5>- 
{{'S','a','v','e J . J \0'},l,RES5}, 

a»QJ J.J Jyl J.J J J >AJ J-J J J J J J J 

3,d)YjEj j n , s j • j . , • j 

'\0'},1,RES5}, 

{CAybyaynydyoyny\G'},l,RES5}, 

{{'P'.'r'.'iS'n'j't'.'VOMpl-RESS}, 

{{'Qyuyiyty\Q'},l,RES5} 

>; 

MIDSCR jdtitusC] = { 

{ruynydyoy\o'>,i,RES5), 

{{'Cyuyty\Q'},l,RES5}, 
{{'CyaypyyyW'J^RESS}, 
{{'P'.'a'.'s'.'t'j'e'.'NO^pl.RESS}, 
{{'Cyiyeyayry\0'},l,RE55}, 
{{'S'j'h'/o'.'w'j'XOM.ljRESS} 
)i 

MNDSCR lenusCI = { 
(TNDY ttN> , 
{FILE.NNJ, 
(EDIT MN} 



MNDSCR windat = { 

/jaj j-j j-j jij j;j j-j j-j r$i jji J n J 

'n'/\0'} f 

sizeof ienus / sizeof aenus.Q], 

WXMIN, 

WYMIN, 

HINSYNC, 

RESERVED, 

ienus 

>; 

HSRET isinfo; 
int sigcode; 



setbuf(stdin,NULL); 

setbuf(stdout,NULL); 

CurOff (path); 

if (.ssjset(path,WT.FWIN,«(Nindat)<0) 

exit(errno); 
intercept Uighandler) ; 

SetGC (path, BRP_PTR, PTR_ARR) ? 

_ssjip(path, 1,1,255,255); 
"ssjioustpath, UPDATE JIHOUT, FOLLOW); 
.ssjsigfpath.MQUSSIG); 

sigcode = 0; 
do { 

_5s_nsig(path,MOUSSI&); 
if (sigcode == 0) 

tsleep(O); 
if (sigcode == H0US5IG) 
{ 

sigcode - 0; 
js ious(path,4(isinfo); 
it (msinfo.pt stat == WR CNTRL) 
{ 

switchC gsjsel(path,&iteano)) 
{ 

case HN CLOS: 
quit = TRUE; 
break; 
case MNJNDY: 

dojandy.ienu(iteina); 
break; 
case HN.FILEs 
dojile.aenu(iteano); 
break; 
case MN.EDIT: 
dojdit.ienu (itemo); 
break; 
} 
printf C a Zc a y 12); 
} 
} 



} while ('.quit); 
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SetGC(path,Q,0); 

_ss_rel(path); 

CurQn(path); 

_ss_wset(path,WT.NBDX,&windat); 



do_tandyjnenu(item) 

int item; 

{ 

char ch; 
switch (item) 
{ 
case 1: 

print* ("ZcXcXc Calc. ",2,42,42); 
break; 
case 2: 

print* ("Xc'/.cXc Clock. ",2,42,42); 
break; 
case 3: 

printf ("XcXcXc Calendar. ",2,42,42); 
break; 
case 4: 

print* ("XcXcXc Control. ",2, 42, 42); 
break; 
case 5: 

print* ("XcZcZc Printer. ",2,42,42); 
break; 
case 6: 

printfCXcXcZc Port. ",2,42, 42); 
break; 
case 1\ 

print* ("XcMc Help. ",2,42,42); 
break; 
case 8; 

print* ("XcXcXc Shell. ",2,42, 42); 
break; 
case 9j 

print* ("XcXcXc Clipboard. ",2,42, 42); 
break; 
} 

print* ("\n\n Press any key,.,"); 
ch = getcharO; 
print* ("7.c u , 12); 
} 

do_*ilejenu(item) 
int item; 
{ 

char ch; 
switch (item) 
{ 
case 1: 

print* ("XcMc New. ",2,42,42); 
break; 
case 2: 

print* ("ZcXcZc Open. ",2,42,42); 



break; 
case 3: 

print* ("McZc Save. ",2,42, 42); 

break; 
case 4: 

print* ("XcXcXc Save As. ..",2, 42,42); 

break; 
case 5: 

print* PXcMc Abandon", 2,42, 42); 

break; 
case 6: 

print* ("XcXcXc Print, ",2,42,42); 

break; 
case 7; 

print* ("XcXcXc Quit. ",2,42,42); 

break; 
) 

print*("\n\n Press any key../); 
ch = getcharO; 
print*(")ic l, ,12); 



do_editjenu(item) 

int item; 

{ 

char ch; 
switch (item) 
{ 
case 1: 

print* ("7.cXc'/,c Undo.", 2, 42,42); 

break; 
case 2: 

print* ("XcXcXc Cut,", 2, 42,42); 

break; 
case 3: 

print* ("McXc Copy. ",2,42,42); 

break; 
case 4: 

print* ("XcXcXc Paste. ",2,42,42); 

break; 
case 5: 

print* ("XcMc Clear. ",2,42,42); 

break; 
case 6: 

print* ("XcXcXc Show. ",2,42,42); 

break; 
} 

print*("\n\n Press any key..."); 
ch = getcharO; 
print*("Xc",12); 
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ZAP 

The following is the BasicO? source code for one of my favourite home-baked programmes, an 0S9 Level 2 disk 
zapper. For those purists amongst you, I apologise for the spaghetti. However, by way of apology, I have to 
say that this project just grew, and grew, and grew! Consequently, it was written without much planning or 
attention to sensibilities. To have such things as line numbers etc. is archaic. However what you see is 
what you get. While the code was written using the data in the CoCo OS? Level 2 Hanual as reference 
material, I hope that it will function on any OS? system. I will provide a complete description of the 
programme in the next newsletter. 

Don Berrie. 



PROCEDURE zap 

BASE 

DIM PAGE, PATH, wpath,fgnd,bgnd,bord:BYTE 

DIM uxbl ock , i dent f x , y t x 1 , y 1 : INTEGER 

DIM title:STRINGE403 
DIM CH0ICE:STRING[25] 
DIM outstr:STRING[18] 
DIM NAME:STRINGt4] 
DIM DTA,NEWBYTE:BYTE 
DIM COUNT, METER,BLKNO: REAL 
DIM OFFSET, i bl kno: INTEGER 
DIM secdat (256): BYTE 
DIM lceypress:STRING[13 
DIM flag:B00LEAN 
flag=FALSE 
fgnd=0 
bgnd=l 
bord=l 

OPEN #wpath f Vw":UPDATE 
RUN gfx2(wpath, ,, DWSET u ,2,0,0,80,24,fgnd, 
bgnd,bord) 

RUN gfx2(wpath, "SELECT") 
1 fgnd=4 
bgnd=5 

RUN gfx2<wpath, u 0WSET", 1,0,0, 80,24, *gnd,bgnd) 
RUN gf x2(wpath, "ONSET", 0, 1,0, 79,24, fgnd,bgnd) 
x=0 \y=0 \xl=80 \yl=24 
outstr="" 
PAGE=0 

PRINT ttwpath, CHR$($0C) 
RUN winopen(wpath,x,y,xl,yl) 
PRINT ttwpath, 
PRINT ttwpath," ■; 

title= u U DISK MAINTENANCE UTILITY tV 
RUN headertwpath, title) 
PRINT ttwpath, \ PRINT ilwpath, 
PRINT iwpath," (c) 1988 D.A.Berrie" 
PRINT ttwpath, 

PRINT iwpath," Version 1.10 88/08/07" 
PRINT iwpath, 



PRINT ttwpath, B #tt USE WITH CARE - PERMANENT 
CHANGES TO DISK STRUCTURE CAN BE MADE tttt" 

PRINT ttwpath, 

RUN getdevlwpath, NAME, PATH, secdat, maxblock, 
ident) 

PRINT ttwpath, 

RUN getsec(wpath,maxblock,BLKNO) 

ON ERROR GOTO 100 

10 METER=BLKN0*256 
iblkno=BLKNQ 
C0UNT=O 

SEEK IPATH,1 

GET ttPATH, secdat 

IF secdat ( 14) 1256+secdat ( 15) <>i dent THEN 

x=6 \xl=40 \y=8 \yl=8 

RUN winopen(wpath,x,y,xl,yl) 

PRINT iwpath 

PRINT ttwpath," WARNING: DISK HAS BEEN 
CHANGED! u 

PRINT ttwpath," Press any key to continue 

GET ttwpath, keypress 

RUN winclose(wpath) 

ENDIF 
SEEK ttPATH,METER 
GET ttPATH, secdat 
CLOSE ttPATH 

11 RUN scniwpath, NAME, iblkno, secdat) 
IF flag=TRUE THEN 

keypress="A" 

•flag=FALSE 

GOTO 21 

ENDIF 
20 fgnd=0 
bgnd=l 

RUN gfx2(wpath, "ONSET", 1,6,22,32, l,*gnd,bgnd) 
RUN gfx2(wpath, ,, CUROFF") 
PRINT ttwpath," A C D E H-help M N P Q <■ »> 



GET ttwpath, keypress 
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RUN gh2(Hpath, u CUR0N") 
RUN g^x2(wpath,"0HEND ,t ) 
21 CHOICE=keypress 

IF CHOICEST OR CHOICER" THEN 

x=5 \xl=30 \y=10 \yl=6 

RUN Hinopen(Hpath,x,y,xl,yl) 

RUN getdev(wpath, NAME, PATH, secdat, maxblock, 
ident) 

RUN get5Bc(wpath,maxblock,BLKN0) 

GOTO 10 

ENDIF 
IF CH0ICE= n C" OR CHOICE=V THEN 

x=40 \xl*30 \y=l \yl=22 

RUN winopen(wpath,x,y,xl,yl) 

RUN calc(wpath) 

RUN winclose(wpath) 

GOTO 20 

ENDIF 
IF CHOICER" OR CHOICE="q" THEN 

PRINT #wpath,CHR${$OC) 

RUN gh2(l, "SELECT") 

RUN gfx2(Hpath,"DWEND") 

CLOSE iHpath 

END 

ENDIF 
IF CHOICEST OR CHOICE=V THEN 

x=40 \xl=30 \y=l \yl=23 

RUN winopen(wpath,x,y,xl,yl) 

RUN ascii (wpath, secdat, keypress) 

RUN windoselwpath) 

IF keypress=CHR$(8) OR keypress=CHR$(9) THEN 

flag=TRUE 
ENDIF 

GOTO 21 

ENDIF 
IF CHOICE="fT OR CHQICE=V THEN 

RUN change(wpath,iblkno, secdat, PATH, NAME) 

GOTO 20 

ENDIF 
IF CHOICE="E" OR CHOICE=V THEN 

x =0 \y=0 \xl=80 \yl=24 

RUN Hinopen(wpath,x,y,xl,yl) 

RUN directory(wpath) 

RUN winclose(Hpath) 

GOTO 20 

ENDIF 
IF CHOICE="H" OR CHOICE=V THEN 

x=40 \y=l \xl=30 \yl=22 

RUN winopenlwpath,x,y,xl,yl) 

RUN helpdiessfupath, keypress) 

RUN winclose(wpath) 

GOTO 21 

ENDIF 
IF CHQICE= b N" OR CHOICE=V THEN 



OPEN *PATH,NAME 
x=20 \y=12 \xl=40 \yl=5 
RUN winopen(wpath,x,y,xl,yl) 
RUN getsec(wpath,iiaxblock,BLKNO) 
GOTO 10 
ENDIF 
IF CH0ICE=CHR$19) THEN 
OPEN IPATH,NAf1E 
BLKN0=BLKN0+1 
IF BLKNO>«axblock THEN 

BLKNO=0 

GOTO 10 

ENDIF 
GOTO 10 
ENDIF 
IF CHQICE=CHR$(8) THEN 
OPEN #PATH,NAME 
BLKN0=BLKN0-1 
IF BLKNO<0 THEN 

BLKNO=naxblock 

GOTO 10 

ENDIF 
GOTO 10 
ENDIF 
IF CHOICE="P" OR CHOICE= u p a THEN 
25 x=25 \y=10 \xl=30 \yl=5 
COUNT=0 

RUN winopen(wpath,x,y,xl,yl) 
PRINT Hwpath," Printing Sector ■; 
QN ERROR GOTO 30 
OPEN #PATH, H /p" 

PRINT ttPATH, "DEVICE : "; LEFTS (NAME, 
LEN(NAHE)-l); " "; "SECTOR ! $ H ; 
PRINT ttPATH USING "h4>",iblkno 
PRINT #PATH 

PRINT #PATH, s Rel 1 2 3 4 5 6 7 8 9 A B C 
D E F 2 4 6 8 A C E" 

PRINT UPATH/Addr 

FOR i=0 TO 255 
IF COUNT=0 THEN 

PRINT ttPATH USING "H2>",PAGE; 

PAGE=PAGE+1 

PRINT #PATH, H H ; 

ENDIF 
PRINT IPATH USING u h2>% secdat (i ) ; 
C0UNT=C0UHT+1 
IF secdat(i)<$21 OR secdat (i ) >$7A THEN 

outstr=outstr+V 

ELSE 

outstr=outstr+CHR$ (secdat (i)) 

ENDIF 
IF C0UNT=16 THEN 

PRINT ItPATH," *j outstr 

outstr= ,,tt 
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C0UNT=0 
ENDIF 
NEXT i 
PRINT *PATH,CHR$($OC) - 
CLOSE IPATH 
PAGE=0 

RUN winclose(wpath) 
ENDIF 
GOTO 20 
END 
30 errnura=ERR 

RUN winclose(wpath) 
IF errnuni=246 THEN 
x=25 \y=10 \xl=40 \yl=5 
RUN winopen(wpath,x,y,xl,yl) 
PRINT Iwpath, "PLACE PRINTER ONLINE - PRESS A 
KEY"; 

GET Iwpath, keypress 
keypress^'" 
RUN winclose(wpath) 
GOTO 25 
ENDIF 
100 RUN closerr(wpath) 
END 

PROCEDURE helpmess 
ON ERROR GOTO 100 
PARAM npath:BYTE 
PARAM keypresssSTRINGEl] 
DIM title:STRINGE403 
PRINT Iwpath," M ; 
title="DISK MANAGEMENT HELP" 
RUN headerfwpath, title) 
PRINT Iwpath, 
PRINT Iwpath, 

PRINT Iwpath, "A - Produces Ascii dump" 
PRINT Iwpath, "C - Calculator (Hex.)" 
PRINT twpath,"D - Change RBF Device" 
PRINT Iwpath, "E - Extended directory" 
PRINT Iwpath, "H - Produces this list 
PRINT #wpath, "M - Modify current sector" 
PRINT Iwpath, U N - Change sector number" 
PRINT #wpath,"P - Hardcopy of sector" 
PRINT #wpath, u Q - Quit prograiT 
PRINT #wpath,"<= (left arrow) - change" 
PRINT Iwpath," to previous sector" 
PRINT Iwpath, "«> (right arrow) - change" 
PRINT Iwpath," to next sector" 
PRINT Iwpath, 

PRINT Iwpath, "Select Any Key"; 
GET Iwpath, keypress 
END 
100 RUN closerr Iwpath) 
END 



PROCEDURE sen 

ON ERROR GOTO 100 

BASE 

PARAM wpath:BYTE 

PARAM NAME:STRINGE43 

PARAM iblkno: INTEGER 

PARAM secdat(256):BYTE 

DIM CQUNT:REAL 

DIM i: INTEGER 

DIM PAGEiBYTE 

DIM outstr:STRING[16] 

PRINT Iwpath, CHR$($0C) 

PAGE=0 \outstr= ,1H 

C0UNT=0 

PRINT Iwpath, "DEVICE : "; LEFT*(NAME, 
LEN(NAME)-l); " "; "SECTOR : $"; 

PRINT Iwpath USING "H4>% iblkno 

PRINT twpath, 

PRINT Iwpath, "Rel 1 2 3 4 5 6 7 B ? A B C D 
E F " 

PRINT Iwpath, "Addr 



FOR 1=0 TO 255 
IF C0UNT=0 THEN 
PRINT Iwpath USING "h2>",PAGE; 
PAGE=PAGE+1 
PRINT Iwpath," u ; 
ENDIF 
PRINT Iwpath USING B h2>",secdat(i); 
C0UNT=C0UNT+1 

IF secdat(i)<$21 OR secdat(i)>$7A THEN 
outstr=outstr+ M . M 
ELSE 

outstr=outstr+CHR$(secdat(i)) 
ENDIF 
IF C0UNT=16 THEN 
PRINT Iwpath 
C0UNT=0 
ENDIF 
NEXT i 
PRINT Iwpath 
END 
100 RUN closerr (wpath) 
END 

PROCEDURE winopen 

ON ERROR GOTO 100 

PARAM wpath:BYTE 

PARAM x,y,xl,yl:INTEGER 

RUN gfx2(wpath,"owsety,x,y,xl,yl,l,2) 

RUN gfx2(wpath,"owset ,, ,l,x+l,y+l,xl-2, 
yl-2,0,1) 

RUN gfx2(wpath,"ow5et",l,x+2,y+2,xl-4, 
yl-4,0,1) 

x=0 \y=0 \xl=0 \yl=0 
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END 
100 RUN closerr(wpath) 
END 

PROCEDURE winclose 
PARAM wpath:BYTE 
ON ERROR GOTO 100 
RUN g^x2<wpath,"Dwend") 
RUN gfx2(wpath,"owend u ) 
RUN gfx2(wpath, N owend") 
END 
100 RUN closerr(wpath) 
END 

PROCEDURE ascii 

ON ERROR GOTO 100 

BASE 

PARAM wpath:BYTE 

PARAM secdat (256): BYTE 

PARAM keypress:STRIN&[l] 

DIM i, count: INTEGER 

DIM page:BYTE 

DIM outstr:STRIN&[163 

outstr 81 " 1 

page=0 

count=0 

PRINT iwpath," 2 4 6 8 A C E" 

PRINT Iwpath, g " 

FOR i=0 TO 255 
IF count=0 THEN 

PRINT Iwpath USING D h2> u ,page; 

page=page+l 

PRINT iwpath," H ; 

ENDIF . 
IF secdat (i)<$20 OR secdat(i)>*7A THEN 

outstr=outstr+ tt ." 

ELSE 

outstr=outstr+CHR$(secdat(i)) 

ENDIF 
count=count+l 
IF count=16 THEN 

PRINT iwpath, outstr 

outstr= MH 

count =0 

ENDIF 
NEXT i 
PRINT iwpath, "Select A Key 8 ; 
GET Iwpath, keypress 
END 
100 RUN doserr(wpath) 
END 

PROCEDURE change 
ON ERROR 60T0 100 
BASE 



PARAM wpath:BYTE 

PARAM iblkno: INTEGER 

PARAM secdat (256): BYTE 

PARAM PATH:BYTE 

PARAM NAME:STRIN&[4I 

DIM x, y,xl f yl: INTEGER 

DIM keysSTRINGtl] 

DIM hex:STRIN&[2] 

DIM a,b,c,d,ihex:INTEGER 

DIM flag: INTEGER 

DIM firstsBOOLEAN 

flag=0 

a=5 \b=5 \c=5 \d=5 

RUN gfx2(wpath/curDff i ) 

RUN gh2(wpath,"CUR)(Y",5,22) 

RUN gfx2(wpath, "COLOR", 0,1) 

PRINT iwpath," 2-HEX-BYTES H-HELP W Q arrows 
■ 

RUN gfx2(wpath, "COLOR", 4,5) 

10 c=a \d=b 

RUN swopentwpath, a, b, secdat) 

RUN gfx2(wpath, u owset u , 1,78,23,1, 1,5,5) 

GET iwpath, key 

RUN gfx2(wpath,"owend") 

11 hex="" 
first=FALSE 

IF key=CHR$(10) THEN 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
RUN swdose(wpath, a, b,c,d, secdat) 
GOTO 10 
ENDIF 
IF key=CHR$(12) THEN 
b=b-l 

IF b=4 THEN 
b=20 
ENDIF 
RUN swclosetwpath, a, b,c,d, secdat) 
GOTO 10 
ENDIF 
IF key=CHR*(9) THEN 
a=a+2 

IF a=37 THEN 
a=5 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
ENDIF 
RUN swc 1 ose ( wpat h , a , b , c , d , secdat ) 
GOTO 10 
ENDIF 
IF key=CHR$(8) THEN 
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a=a-2 

IF a=3 THEN 

a=35 

b=b-l 

IF b=4 THEN 
b=20 
ENDIF 

ENDIF 
RUN swclose(wpath,a,b,c,d,5ecdat) 
GOTO 10 
ENDIF 

15 IF ASC(key)>47 AND ASC(key)<58 OR ASC(key)>64 
AND ASC(key)<71 OR ASC(key)>96 AND ASC(key)<103 
THEN 

hex=hex+key 

IF first=TRUE THEN 

GOTO 16 

ENDIF 
first=TRUE 
key=" u 

6ET *wpath,key 
GOTO 15 

16 secdat<(a-5)/2+(b-5)U6>=VAL( u $ M +hex} 
flag=l 

RUN swopen(«path,a,b,secdat) 
a=a+2 

IF a=37 THEN 
a=5 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
ENDIF 
RUN swclose(Npath,a,b,c,d,secdat) 
GOTO 10 
ENDIF 
IF key=T OR key=V THEN 
RUN SHdose(Hpath,a,b,c,d,secdat) 
RUN gfx2(Npath/curon B ) 
RUN aodify(npath,secdat,iblkno, 
PATH, NAME, flag) 
END 
ENDIF 
IF key= u a M OR key=Y THEN 
60T0 20 
ENDIF 
IF key= d H" OR key=V THEN 
RUN SNdose(Npath,a,b,c,d,secdat) 
x=45 \y=l \xl=30 \yl=22 
RUN wi nopen C wpath , x v y f x 1 , y 1 ) 
RUN helpmess2(wpath,key) 
RUN winclose(wpath) 
60T0 11 
ENDIF 
key= n " 



GOTO 10 
20 key= nH 

RUN 5wclo5e(Hpath,a,b,c,d,secdat) 
IF flag=l THEN 

x=10 \xl=60 \y=9 \yl=8 

RUN winopen(wpath,x,y,xl,yl) 

PRINT #wpath," NO CHANGES SAVED TO DISK 
ii 

PRINT #wpath, 

PRINT #wpath, n Press Any Key to Continue" 

GET Jfwpath,key 

RUN Mindose(wpath) 

ENDIF 
RUN gfx2(wpath, n CURXY'\5,22} 
PRINT ttwpath," 

RUN gfx2(wpath, ,l curon") 
END 
100 RUN closerr(wpath) 
END 

PROCEDURE swopen 

ON ERROR GOTO 100 

BASE 

PARAM wpathsBYTE 

PARAM a, b: INTEGER 

PARAM secdat(256):BYTE 

RUN gfx2(tipath,"curxy\a,b> 

RUN gfx2(wpath,"revon") 

PRINT iwpath USIN6 "h2>%secdat ( (a-5) 
/2+(b-5H16); 

RUN gfx2(Npath/curxy",a,b) 

END 
100 RUN closerr(Npath) 

END 

PROCEDURE swdose 

ON ERROR GOTO 100 

BASE 

PARAM wpath: BYTE 

PARAM a,b,c,d: INTEGER 

PARAM secdat(256):BYTE 

RUN gfx2(wpath/revoff H ) 

RUN gfx2(wpath, ,, curxy u ,c,d) 

PRINT Iwpath USING H h2> H ,secdat((c-5) 
/2+(d-5)ll6); 

RUN gfx2(Npath,"curxy",a,b) 

END 
100 RUN closerr(Npath) 
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uuutmuuMtnunuuuun 

K R N I S RIFT 
SOFTWARE REVIEW 

mtsttttmtmttttmmttmm 

By Nickolas Marentes (CoCo3 Commercial Programmer) 



GAME SCENARIO: 

You are a 'Techno-Scavenger', one who takes a living searching for abandoned technological systems. From 

galaxy to galaxy you roam collecting technological "junk" for resale. Life's tuff! 

Suddenly, your instruments spring to life like they have never done so before. Radiation flux levels in the 

ten thousand range! Closer examination reveals that you have stumbled across the fabled "Koronis Rift", An 

ancient test ground for the eost powerful weapons. 

On descending into the rifts, you drive your Surface Rover across the planet surface, tracking down abandoned 

"Hulks". Once found, you send you Repo-Tech droid to loot it and return with any useful systems. Vou must 

analyze each module, working out what each nodule is, how much energy it has, how such it's worth and 

determine if you can put it to use in your own Surface Rover for increased capabilities. 

Beware though, the planet is patrolled by Guardian Saucers which you must destroy or evade. 

GAME PACKAGING: 

The game comes very well presented in a professionally presented, colour box. Inside is a small well written 
booklet, a command card and a disk. Koronis Rift has been available for the Atari 400/800 and Commodore 64 
computers before finally being released for the CoCo3. The documentation is designed for each computer with 
the command card being specific for the host system. 

PROGRAM DEVELOPMENT: 

The program is brought out by EPYX, a large U.S. software house who has mainly been supporting the Commodore 
64 computer, The program is actually developed by a team called LUCASF1LH LTD. which is the home computer 
software division of George Lucas's (Star Wars fame) special effects and film company. So, as you can see, 
Koronis Rift is no "backyard job". The CoCo3 version programmers are Edwin Rosenzweig and Ken Rogoway. The 
program runs under the CoCo3's OS-? Level 2 system. 

POSITIVE POINTS: 

Good use of the OS-9 environment. Good use of the CoCo3's graphics (great title page!) making use of colour 
shades for added depth, Great game scenario of which much of the game terminology are trademarks of 
Lucasfilm Ltd. 

NEGATIVE POINTS: 

Sound is a bit on the minus side, especially when compared with the Atari and Commodore versions but this is 
a speed limitation when running under OS-9 and the CoCo3's lack of a dedicated sound chip. 



CLOSING COMMENTS: 

Great program! The program is good value for money when one considers the professionalism of packaging, depth 
of script and development of special Fractal algorithms for the planet terrain. One very unfortunate thing 
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though, according to Tandy here in Australia, Koronis Rift is now a discontinued product! I for one ai 
shocked that such good software, which hasn't had the chance to be larketed properly is being given the boot. 
I can think of other prograas which Tandy are selling which I feel should be discontinued instead of this one 
(stay tuned for a future episode!). So, if you're planning on getting a new CoCo3 gane, grab Koronis Rift 
before they completely disappear. 



AVAILABLE: Tandy Electronics Stores 
PRICE : $52.46 (Discontinued price) 
REQUIRES : 12BK CoCo3 + Disk Drive 

00OOO00 



The following is a list of systen error lessages which iay be of use as an easily accessable reference 



089 ERROR MESSAGES 



183 - Illegeal window type 

184 - Window already defined 

185 - Font not found 

186 - Stack overflow 

187 - Illegal arguient 

188 - unused 

189 - Illegal Coordinates 

190 - Internal integrity check 

191 - Buffer size too siall 

192 - Illegal coiiand 

193 - Screen or Window table is full 

194 - Bad/Undefined buffer nuiber 

195 - Illegal window definition 

196 - Window undefined 

197 - unused 

198 - unused 

199 - unused 

200 - Path tabl full 

201 - Illegal path nuiber 

202 - Interrupt poling table full 

203 - Illegal lode 

204 - Device table full 

205 - Illegal nodule header 

206 - Module directory full 

207 - Meiory full 

208 - Illegal service request 

209 - Module busy 

210 - Boundary error 

211 - End of file 

212 - Returning non-allocated leiory 

213 - Non-existing segient 

214 - No periission 

215 - Bad path naie 

216 - Path naie not found 

217 - Segient list full 



218 - File already exists 

219 - Illegal block address 

220 - Data carrier detect lost 

221 - Module not found 

223 - Suicide atteipt 

224 - Illegal process nui,ber 

226 - No children 

227 - Illegal SWI code 

228 - Process aborted 

229 - Process table full 

230 - Illegal paraieter area 

231 - Known lodule 

232 - Incorrect lodule CRC 

233 - Signal error 

234 - Non-existent Module 

235 - Bad Naie 

236 - Bad lodule header 

237 - RAM full 

238 - Unknown process ID 

239 - No task nuiber available 

240 - Unit error 

241 - Sector error 

242 - Write protect 

243 - CRC error 

244 - Read error 

245 - Write error 

246 - Not ready 

247 - Seek error 

248 - Media full 

249 - Wrong type 

250 - Device ready 

251 - Disk ID change 

252 - Record is locked out 

253 - Non-sharable file busy 

254 - 1/0 deadlock errror 
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